home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 6 / 02 / tips&tricks / finalwriter / schrift-info.fw < prev   
Encoding:
Text File  |  1995-06-01  |  5.4 KB  |  216 lines
  1. /*
  2.     FinalWriter-Schrift-Info - 9.4.94 - von Gunther Lemm
  3. */
  4.  
  5.  
  6. proptab=1 /* für den Workbench-Screen sollte proptab auf 0 gesetzt werden */
  7.  
  8.  
  9.  
  10. if ~show('L',"rexxreqtools.library") then addlib('rexxreqtools.library',0,-30,0)
  11.  
  12. titel="ARexx-Macro: Zeichensatz-Info"
  13.  
  14. Address='FinalW'
  15. Options results
  16.  
  17. STATUS PORTNAME
  18. address = result
  19.  
  20. TEXTTOOL
  21.  
  22. STATUS PARAPOS
  23. MOVETOPARA result
  24.  
  25. STATUS FONTNAME
  26. font=result
  27.  
  28. STATUS FONTSIZE
  29. size=result
  30.  
  31. STATUS FONTWIDTH
  32. width=result
  33.  
  34. STATUS SCREEN
  35. parse var result . scy .
  36. if (scy>190 & scy<290) then lace=0
  37. else lace=1
  38.  
  39. GETDISPLAYPREFS MEASURE
  40. select
  41.  when result="Inches" then mes=" Zoll"
  42.  when result="Metric" then mes=" cm"
  43.  when result="Pica" then mes=" Pica"
  44. end 
  45.  
  46. t.0='0a'x
  47. pt=" Punkt" ; proz=" Prozent"
  48.  
  49. if proptab=1 then  /* prop für hires-interlaced */
  50.  do
  51.   if lace=1 then
  52.    do
  53.     t.1="Zeichensatz:...."||font||t.0
  54.     t.2="Größe:................."||size||pt||t.0
  55.     t.3="Breite:.................."||width||proz||t.0
  56.    end
  57.   else /* prop für hires */
  58.    do
  59.     t.1="Zeichensatz:..."||font||t.0
  60.     t.2="Größe:..............."||size||pt||t.0
  61.     t.3="Breite:.............."||width||proz||t.0
  62.    end
  63.  end
  64. else
  65.  do
  66.   t.1="Zeichensatz:."||font||t.0 /* wbench */
  67.   t.2="Größe:......."||size||pt||t.0
  68.   t.3="Breite:......"||width||proz||t.0
  69.  end
  70.  
  71. back=rtezrequest(t.1||t.2||t.3,"Mehr...|Ändern|  OK  ",titel)
  72. if back=0 then exit
  73. if back=2 then
  74.  do ; TYPESPECS ; exit ; end
  75.  
  76. STATUS FONTOBLIQUE
  77. obl=result
  78.  
  79. STATUS FONTCASE
  80. select
  81.  when result="Normal" then case="Groß- u. Kleinbuchstaben"
  82.  when result="AllCaps" then case="nur Großbuchstaben"
  83.  when result="SmallCaps" then case="Kapitälchen"
  84. end
  85.  
  86. STATUS FONTPOSITION
  87. select
  88.  when result="Normal" then pos="Grundlinie"
  89.  when result="Subscript" then pos="Tiefgestellt"
  90.  when result="SuperScript" then pos="Hochgestellt"
  91. end
  92.  
  93. STATUS FONTSTYLE
  94. select
  95.  when result="Underline" then style="Unterstrichen"
  96.  when result="DUnderline" then style="Doppelt Unterstrichen"
  97.  when result="StrikThru" then style="Durchgestrichen"
  98.  otherwise style="Normal"
  99. end
  100.  
  101. STATUS FONTCOLOR
  102. color=result
  103.  
  104. STATUS JUSTIFY
  105. select
  106.  when result="Left" then just="Linksbündig"
  107.  when result="Right" then just="Rechtsbündig"
  108.  when result="Center" then just="Zentriert"
  109.  otherwise just="Blocksatz"
  110. end
  111.  
  112. STATUS LEFTMARGIN
  113. lmargin=result
  114.  
  115. STATUS RIGHTMARGIN
  116. rmargin=result
  117.  
  118. STATUS INDENT
  119. indent=result
  120.  
  121.  
  122. STATUS SPACING
  123. select
  124.  when result="Single" then lead="1-zeilig"
  125.  when result="One And One Half" then lead="1,5-zeilig"
  126.  when result="Double" then lead="2-zeilig"
  127.  otherwise do ; STATUS FONTLEADING ; lead=result||pt ; end
  128. end
  129.  
  130. STATUS HYPHEN
  131. if result="On" then hyp="Aktiv"
  132. else hyp="Inaktiv"
  133.  
  134. STATUS HOTZONE
  135. zone=result
  136.  
  137. if proptab=1 then
  138.  do
  139.  if lace=1 then
  140.   do /* hires interlaced */
  141.    t.1= "***** ZEICHENSATZ-EINSTELLUNGEN *****"||t.0
  142.    t.2= "Zeichensatz:........"||font||t.0
  143.    t.3= "Größe:....................."||size||pt||t.0
  144.    t.4= "Breite:......................"||width||proz||t.0
  145.    t.5= "Durchschuß:.........."||lead||t.0
  146.    t.6= "Neigung:................"||obl||proz||t.0
  147.    t.7= "Position:.................."||pos||t.0
  148.    t.8= "Schriftschnitt:........."||style||t.0
  149.    t.9= "Schreibweise:......"||case||t.0
  150.    t.10="Farbe:......................"||color||t.0||t.0
  151.    t.11="***** ABSATZ-EINSTELLUNGEN *****"||t.0
  152.    t.12="Ausrichtung:.........."||just||t.0
  153.    t.13="Einrückungen   "||t.0
  154.    t.14="     Links:..................."||lmargin||mes||t.0
  155.    t.15="     Rechts:.............."||rmargin||mes||t.0
  156.    t.16="     Erster:................."||indent||mes||t.0
  157.    t.17="Silbentrennung:.."||hyp||t.0
  158.    t.18="Trennbereich:......"||zone||mes||t.0
  159.   end
  160.  else
  161.   do /* hires */
  162.    t.1= "***** ZEICHENSATZ-EINSTELLUNGEN *****"||t.0
  163.    t.2= "Zeichensatz:......."||font||t.0
  164.    t.3= "Größe:..................."||size||pt||t.0
  165.    t.4= "Breite:.................."||width||proz||t.0
  166.    t.5= "Durchschuß:........"||lead||t.0
  167.    t.6= "Neigung:..............."||obl||proz||t.0
  168.    t.7= "Position:..............."||pos||t.0
  169.    t.8= "Schriftschnitt:..."||style||t.0
  170.    t.9= "Schreibweise:....."||case||t.0
  171.    t.10="Farbe:..................."||color||t.0||t.0
  172.    t.11="***** ABSATZ-EINSTELLUNGEN *****"||t.0
  173.    t.12="Ausrichtung:........."||just||t.0
  174.    t.13="Einrückungen   "||t.0
  175.    t.14="     Links:..............."||lmargin||mes||t.0
  176.    t.15="     Rechts:............"||rmargin||mes||t.0
  177.    t.16="     Erster:............"||indent||mes||t.0
  178.    t.17="Silbentrennung:.."||hyp||t.0
  179.    t.18="Trennbereich:....."||zone||mes||t.0
  180.   end
  181.  end
  182. else
  183.  do /* wbench */
  184.   t.1= "*** ZEICHENSATZ-EINSTELLUNGEN ***"||t.0
  185.   t.2= "Zeichensatz:..."||font||t.0
  186.   t.3= "Größe:........."||size||pt||t.0
  187.   t.4= "Breite:........"||width||proz||t.0
  188.   t.5= "Durchschuß:...."||lead||t.0
  189.   t.6= "Neigung:......."||obl||proz||t.0
  190.   t.7= "Position:......"||pos||t.0
  191.   t.8= "Schriftschnitt:"||style||t.0
  192.   t.9= "Schreibweise:.."||case||t.0
  193.   t.10="Farbe:........."||color||t.0||t.0
  194.   t.11="*** ABSATZ-EINSTELLUNGEN ***"||t.0
  195.   t.12="Ausrichtung:..."||just||t.0
  196.   t.13="Einrückungen   "||t.0
  197.   t.14="     Links:...."||lmargin||mes||t.0
  198.   t.15="     Rechts:..."||rmargin||mes||t.0
  199.   t.16="     Erster:..."||indent||mes||t.0
  200.   t.17="Silbentrennung:"||hyp||t.0
  201.   t.18="Trennbereich:.."||zone||mes||t.0
  202.  end
  203.  
  204.  
  205. t1=t.1||t.2||t.3||t.4||t.5||t.6||t.7||t.8||t.9
  206. t2=t.10||t.11||t.12||t.13||t.14||t.15||t.16||t.17||t.18
  207.  
  208. back=rtezrequest(t1||t2,"   OK   |Absatz ändern|Schrift ändern",titel)
  209. select
  210.  when back=0 then TYPESPECS
  211.  when back=1 then exit
  212.  when back=2 then PARAGRAPH
  213. end
  214.  
  215. exit
  216.